home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24a.d64 / softcolor rx80 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  84 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *      SOFTCOLOR MIT RX/80     *
  4. 40 REM *                              *
  5. 50 REM *        JUERGEN   CURDT       *
  6. 60 REM *        KESSEMEIERWEG 5       *
  7. 70 REM *        4930  DETMOLD 1       *
  8. 80 REM *                              *
  9. 90 REM ********************************
  10. 100 POKE53281,12:POKE53280,12
  11. 110 IFI=0THENI=1:LOAD"MP SOFTCOLOR",8,1
  12. 120 FA=49632:GR=49606:TE=49710:LA=49748
  13. 130 PRINT"[147]":Y=12:GOSUB770
  14. 140 INPUT"WELCHE GRAFIK LADEN ";A$
  15. 150 IFLEN(A$)>12THENA$=LEFT$(A$,12)
  16. 160 POKELA+28,LEN(A$)
  17. 170 FORI=1TOLEN(A$):POKELA+28+I,ASC(MID$(A$,I,1)):NEXT
  18. 180 PRINT"[147]":Y=8:X=2:GOSUB770
  19. 190 PRINT"^  UMSCHALTEN GRAFIK <> MENUE":GOSUB760
  20. 200 PRINT"*  ANDERE  FLAECHE  ANWAEHLEN":X=1:GOSUB760
  21. 210 PRINT"+/- BILDSCHIRMFARBE UMSCHALTEN[152]"
  22. 220 SYSLA:OPEN1,8,15:INPUT#1,I:CLOSE1
  23. 230 IFI<>0THEN130
  24. 240 X=5:Y=18:GOSUB770:PRINT"[144]BITTE TASTE DRUECKEN![152]"
  25. 250 POKE198,0:WAIT198,1
  26. 260 FORI=0TO3:F(I)=49602+I:POKEF(I),7+I:NEXT
  27. 270 FORI=0TO3:FD(I)=5:FM(I)=7+I:NEXT
  28. 280 F1=FD(0):F2=FD(1):F3=FD(2):F4=FD(3)
  29. 290 F=0:SYSGR
  30. 300 I=0
  31. 310 I=I+1:GETA$:IFA$=""ANDI<50THEN310
  32. 320 IFA$<>"*"THEN350
  33. 330 FORI=0TO3:POKEF(I),FM(I):NEXT
  34. 340 F=F+1:IFF>3THENF=0
  35. 350 IFA$="+"THENFM(F)=(FM(F)+1)AND15:POKEF(F),FM(F)
  36. 360 IFA$="-"THENFM(F)=(FM(F)-1)AND15:POKEF(F),FM(F)
  37. 370 IFPEEK(F(F))=0THENPOKEF(F),FM(F):GOTO390
  38. 380 IFPEEK(F(F))<>0THENPOKEF(F),0
  39. 390 SYSFA
  40. 400 IFA$<>"^"THEN300
  41. 410 SYSTE
  42. 420 PRINTTAB(81)"[144]DIE IN DER GRAFIK BLINKENDEN FLAECHEN"
  43. 430 PRINTTAB(44)"SOLLEN AUSGEDRUCKT WERDEN MIT:"
  44. 440 X=8:Y=4
  45. 450 IFF1=5THENGOSUB760:PRINT"4  GROESSTER FARBDICHTE"
  46. 460 IFF2=5THENGOSUB760:PRINT"3  GROSSER DICHTE"
  47. 470 IFF3=5THENGOSUB760:PRINT"2  GERINGER DICHTE"
  48. 480 IFF4=5THENGOSUB760:PRINT"1  KLEINSTER FARBDICHTE"
  49. 490 X=1:GOSUB760:PRINT"[144]BITTE ZIFFER FUER FARBDICHTE WAEHLEN
  50. 500 [153]"      ODER UMSCHALTEN ZUR GRAFIK ^
  51. 510 GETA$:IFA$="^"THENA$="":GOTO290
  52. 520 IFA$<"1"ORA$>"4"THEN510
  53. 530 FD(4-VAL(A$))=F
  54. 540 F1=FD(0):F2=FD(1):F3=FD(2):F4=FD(3)
  55. 550 GOSUB780:PRINT"P   AUSDRUCK STARTEN
  56. 560 [161]A$:[139]A$[178]"^"[167][158]GR:A$[178]"":[137]340
  57. 570 [139]A$[178]"N"[167]130
  58. 580 [139]A$[179][177]"P"[167]560
  59. 590 [153]"LOAD":X[178]3:Y[178]5:[141]770
  60. 600 [153]"STOPBITTE VOR DEM START CHECKEN:"
  61. 610 [153][166]126)"* IST DER DRUCKER ON LINE?
  62. 620 PRINTSPC(46)"* IST DIE STARTPOSITION AUF DEM"
  63. 630 PRINTTAB(8)"PAPIER MARKIERT? - IST DAS"
  64. 640 PRINTTAB(8)"PAPIER ZUR STARTMARKIERUNG"
  65. 650 PRINTTAB(8)"ZURUECKGEDREHT?"
  66. 660 PRINTTAB(46)"* IST DIE DRUCKFARBE GEWECHSELT?
  67. 670 [153][163]123)"STOPALLES FERTIG? BITTE TASTE DRUECKEN!"
  68. 680 [161]A$:[139]A$[178]""[167]680
  69. 690 [158]GR
  70. 700 [159]4,4:[158]49152,4,32,F1,F2,F3,F4:[160]4
  71. 710 [158]TE:[141]780
  72. 720 [161]A$:[139]A$[178]"N"[167]130
  73. 730 [139]A$[179][177]"^"[167]720
  74. 740 A$[178]"":[137]270
  75. 750 [143] UP'E CURSOR POSITIONIEREN PP
  76. 760 Y[178]Y[170]3
  77. 770 [151]211,X:[151]214,Y:[158]58732:[142]
  78. 780 [153]"LOADSTOP":X[178]10:Y[178]8:[141]770
  79. 790 [153]"BITTE WAEHLEN:":X[178]6:[141]760
  80. 800 [153]"^   UMSCHALTEN ZUR GRAFIK":[141]760
  81. 810 [153]"N   NEUE GRAFIK LADEN"
  82. 820 [141]760:[142]
  83. 830 [172][172][172][172][172][172][172][172][172][172][172][172][172][172]  [128]E  [172][172][172][172][172][172][172][172][172][172][172][172][172]
  84.